home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog110 < prev    next >
Text File  |  1995-06-29  |  294b  |  20 lines
  1. # simple pushButton test
  2. xtAppInitialize -class Program
  3.  
  4. xmForm .form managed \
  5.     -unitType 100th_font_units
  6.  
  7. xmLabel .form.fred managed \
  8.     -width 4000 \
  9.     -fontList 9x15bold
  10.  
  11. .form.fred getValues \
  12.     -unitType u \
  13.     -width w
  14.  
  15. puts "type: $u, width: $w"
  16.  
  17. . realizeWidget
  18.  
  19. . mainLoop
  20.